home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
fd200.zip
/
FD_FILES.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-04-07
|
3KB
|
110 lines
function parse_int(src_str: msg_str): integer;
var i,err : integer;
begin
while (src_str[1] = ' ') AND (length(src_str) > 0)
do src_str := copy(src_str,2,length(src_str)-1);
val(src_str,i,err);
parse_int := i;
end;
procedure parse_line(var source : any_string; var fd_p : LINK);
begin
end;
procedure read_file;
var filename : file_type;
dummy : msg_str;
point,i,error : integer;
fd_file : text[$800];
p : LINK;
begin
window(32,8,79,16);
get_file_name(filename,1,1,default_file,32,8,79,16);
if (filename = '') then filename := default_file;
default_file := filename;
assign(fd_file,filename);
{$I-}
reset(fd_file);
if (IOresult <> 0)
then
begin
ClrScr;
writeln('File not found');
writeln;
write('Press any key to continue..');
wait_for_key;
ClrScr;
end
else
begin
writeln;
while (NOT Eof(fd_file)) do
begin
readln(fd_file,dummy);
p := talloc;
if (p <> NIL) then parse_line(dummy,p);
end;
end;
close(fd_file);
end;
procedure write_file;
var filename, backup, testname : file_type;
dummy : msg_str;
point,i : integer;
key, old_area : char;
fd_file, test_file, old_file : text[$1000];
copy_line : string[80];
todays_date : DateStr;
begin
todays_date := date;
window(32,8,79,16);
ClrScr;
get_file_name(filename,1,1,default_file,32,8,79,16);
if (filename = '') then filename := default_file;
testname := filename;
assign(test_file,testname);
{$I-}
reset(test_file);
if (IOresult = 0)
then
begin
point := pos('.',testname);
if point = 0 then backup := testname + '.BAK'
else backup := copy(testname,1,point-1) + '.BAK';
writeln; writeln('Creating backup file: ',backup);
assign(old_file,backup);
{$I-}
rewrite(old_file);
while NOT Eof(test_file) do
begin
readln(test_file,copy_line);
writeln(old_file,copy_line);
end;
close(test_file);
close(old_file);
end
else
close(test_file);
assign(fd_file,filename);
rewrite(fd_file);
i := IOresult;
if (i <> 0)
then
begin
writeln; writeln('Unable to open file ',filename,' - ',i);
write('Press any key to continue ...');
wait_for_key;
close(fd_file);
end
else
begin
writeln; write('Writing records ...');
fprint(root);
close(fd_file);
end;
ClrScr;
window(1,1,80,25);
end;